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PROGRAM LISTING WITH COMMENTS 


PAGE 1 
LOC OBJECT CODE ADDRL ADDR2 STMT SOURCE STATEMENT DD 22APR66 11/16/66 
1 PRINT ON, NOGEN 
000100 2 START 256 
3 CARDIN  DTFCD | c 
DEVADDR=SYSROR, c 
EQFADDR=EOQJ, C 
[OAR EAL=INPUT 
22 * 
23 CDMOD 
90 * 
91 ALINE DTFPR c 
BLKSIZE=132, C 
DEVADDR=SYSLST, C 
LOAREAL=QUTPUT 
110 * 
lll PRMOD 
173 * 
000168 0580 174 BEGIN BALR 11,0 
O0016A 175 USING *,11 
176 OPEN CARDIN, ALINE 
OOOL7E 47FQ BO4GA O01B4 184 B START 
185 * 
186 EOJ CLOSE CARDIN,ALINE END OF JOB ROUTINE 
194 EQJ 
197 * 
198 READ GET  CARDIN READ MACRO 
O001A4 O7FA 203 BCR 15,10 
204 * | 
205 WRITE PUT ALINE WRITE MACRO 
O0OLB2 O7FA 210 BCR 15410 
211 * 
212 * ASSEMBLE AND PRINT THE HEADER LINES 
213 * 
000184 0283 8147 B146 0O2BL 002B0 214 START MVC = GQUTPUT, OUTPUT~1 CLEAR OUTPUT AREA 
0001BA D241 B168 B1CB 002D2 00335 215 MVC HEADER,HDRL MOVE FIRST HEADER TO GUTPUT AREA 
0001CO 45A0 B03C QOLA6 216 BAL 10,WRITE. PRINT FIRST HEADER LINE 
0001C4 0241 B168 B2CD 002D2 00377 217 MVC HEADER, HOR2 MOVE SECOND HEADER TO OUTPUT AREA 
OO001CA 45A0 B03C COlA6 = =218 BAL lO,WRITE PRINT SECOND HEADER LINE 
OOOICE D241 B168 B167 002D2 00201 =. 219 MVC  HEADER,HEADER-1 CLEAR HEADER OUTPUT AREA 
220 * 
221 * READ THE TRANSACTION CARDS 
222 * 
000104 45A0 BOZE - | 00198 223 NEXT BAL 10,READ READ A CARD 
000108 F276 6256 BOFC 003CO 00266 224 PACK PPRIN,PRIN REFORMAT 
OOOLNE F273 B25E B103 003C8 0026D 225 PACK PRATE,RATE 
CCOLE4 F273 8266 8107 00300 00271 226 PACK PPAY,PAY INPUT 
QOOOLEA 4F30 B256 003CO 227 CVB 3 PPRIN 
OCOLEE 4F20 B25F 003C8 228 CVB = 2yPRATE DATA 
229 * 
230 * PERFORM THE REQUIRED CALCULATIONS 
231 * 
OOOLF2 5020 8286 OO3FO 232 ST 2, BRATE STORE INTEREST RATE IN BINARY FORM 


Column 1 of Source Program cards. 
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Programming Example 1: Mortgage Payment Transaction Report 
The Ajax Company computes interest on real estate mortgage payments in the following manner: 


Each month the principal (unpaid balance) is multiplied by the annual interest rate. The 
resulting yearly interest must be divided by 12 to arrive at the monthly interest. The monthly 
mortgage payment consists of both interest and principal. When a monthly payment is received 
the difference between the payment and the monthly interest reduces the principal. All 
calculations are rounded to two decimal positions. 


Input: The input for this report is in punched cards. Each card contains four data fields as 
follows: 


Field Name Columns Format 
Account Number 1-6 xXx XX XX X 
Principal 7-13 XXXXXK.XxX 
Interest Rate 14 - 17 ~xXXXKX 
Monthly Payment 18 - 21 XX.XX 


Note: In each case, the decimal point is assumed and is not punched into the card. 


Output: Illustrated below are the header lines defining the output required for the transaction 
report. 


ACCOUNT OLD NEW MONTHLY MONTHLY AMOUNT 
NUMBER PRINCIPAL PRINCIPAL PAYMENT INTEREST APPLIED TO PRIN 


(Output Field Formats) 


Decimal points are also assumed, not printed, in the output line. 
The programming required consists of a flow chart defining processing through the computer, 
and the coding required to program the computer to perform the functions outlined in the 


flow chart. 


Note: This example is coded using only the Standard Instruction Set. 


The Input-Output ([/O) coding depends upon the operating system being used and may 
be entered by coding a linkage instruction. 


PACK AND 
CONVERT 
DATA 


CALCULATE 
MONTHLY 
INTEREST 


CALCULATE 
AMOUNT 
PAID ON 
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CALCULATE 
NEW 
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ASSEMBLE 
A LINE 
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ace mens Semen se | 


FLOW CHART USING 
STANDARD INSTRUCTION SET 


Bos Seq P84 SS ‘(Geta 
| | { | | ! 
| | | | | | 
PRINT: THE REPORT HEADERS + : + + 
| l 
| | | | | | 
epctces A homer eee ics Bese ners eer 
r- C3— placa (Tika ee armas pclae ae i 
| | | | | | 
| | | | | 
u t ¥ t + + 
| | | | I 
| | | ‘| 
7 D3—+ -—4 eo rae ae P05 -+-- 4 
| | | | | 
| | ‘ 4 | | 
CONVERT DATA TO 
PROPER FORMAT = T t H t ‘ 
| | | | 
be ae ee eed Ly eaceais e eae eee are 
PES SS] r-E4- Sadat | (Pa 
| | | | | 
| i | | | 
PRINGHPAL X RATE + 42 = INTEREST : + + 
| 
| | | | \ 
-F3-+-—-—- r-F4a-+--— -F5—-+——- 
l | l l | ] 
| | l l 
ROUND INTEREST 
TO wp INTER CENT i ; ; t i 
, | | | | 
eee! gee aes Pee ee pene: eee mete 
r-G3—+4 --—-4 EOF ease = ney Poot aaa 
| | | | 
| | l l | l 
PAYMENT — INTEREST = AMOUNT : + + 4 
| | | 
| | | | | 
eg al Boge 2 Sentero) ne Stee oe eke 
i | | | | 
| r | | | 
OLD PRINCIPAL — AMOUNT = NEW PRINCIPAL ‘ + : 
\ 
\ | | | | 
st eee) ee ee cerns apenas 
eS ee] ie Sa oa acca (Pao Sea] 
| : | | | 
EDIT THE AMOUNTS WITH | | | 
APPROPRIATE PUNCTUATION ano + + + 
SPACING ; | | | 
| { : | 
Phe SS] ac aaa aa fee 
7 | | | | ! 
| | 
PRINT4ONE LINE OF THR-REPORT + + + 5 
| 
| | | 
ee et eee ee ah ee at eed S224 23 S5 
Figure 5 
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* A standard card form, IBM electro 6509, is available for punching source statements from this form. 
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FLOW CHART USING 
DECIMAL INSTRUCTION SET 


START 


eis lacie Fic calico ee ee es eres ae | (or ers peer Pi ears  araneae cece meee t--74 
| | | | | | | | | | | | | | | | | 
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Programming Example 2: Mortgage Payment Transaction Report 
The Ajax Company computes interest on real estate mortgage payments in the following manner: 


Each month the principal (unpaid balance) is multiplied by the annual interest rate. The 
resulting yearly interest must be divided by 12 to arrive at the monthly interest. The monthly 
mortgage payment consists of both interest and principal. When a monthly payment is received 
the difference between the payment and the monthly interest reduces the principal. All 
calculations are rounded to two decimal positions. 


Input: The input for this report is in punched cards. Each card contains four data fields as 


follows: 

Field Name Columns Format 
Account Number 1-6 XXX XX X 
Principal 7-13 XXXXKX.xXX 
Interest Rate 14 - 17 ~~ XXXKX 
Monthly Payment 18 - 21 XX.XX N 


Note: In each case, the decimal point is assumed and is not punched into the card. 


Output: Illustrated below are the header lines defining the output required for the transaction 
report to be generated from the transaction cards. 


ACCOUNT OLD NEW MONTHLY MONTHLY AMOUNT 
NUMBER PRINCIPAL PRINCIPAL PAYMENT INTEREST APPLIED TO PRIN 


The output fields are edited to improve readability. Editing inserts the required punctuation 
and eliminates high-order zeros. 


The programming required consists of a flow chart defining processing through the computer, 
and the coding required to program the computer to perform the functions outlined in the 


flow chart. 


I/O storage areas, work areas, and constants, with appropriate symbolic names, are provided 
for student use. They are shown in Figures 14, 15, 16. 


Figure 13 


1] (10/69) 


IBM System/360 Assembler Coding Form isie-gsiy-Sae' on 


PUNCHING GRAPHIC 
INST NS 
RUCTIO ned 


Printed ia U.8.4. 


STATEMENT 


7d BGU <P ER Se 
Ds eet | Pe ce Ie ae lee el Dee opal WU Uebep ale eaten (ale iacobetl Pea 
Be ET 


Figure 14 


IBM IBM System/360 Assembler Coding Form 


PROGRAM 
é < PUNCHING GRAPHIC 
INSTRUCTIONS 
PUNCH 


328-6509-2 se 50 
Printed is 


STATEMENT 


‘Te || le 'wuwlecr | per 
{ele tra pals creas] PRM 


te 
pe? me it 


fia 


Ms 


Figure 15 


IBM IBM System/360 Assembler Coding Form ors 


com STAN DARD 108 $DOS 1/0 CODING luce [>=] | 1111): 
wom FQ ATAX EXAMPLES | 2 OO id 


STATEMENT Identification- 


Operation Cree Comments 
20 


| Tosa ase L eUEREANSRRURRESEAGUSUMECOAUEGROSREEGEGEEERESOUEE i 
PREGERSEEES EARLS CESAR: CARER ER EES DRRES SO REROEE 


agp [brecol IC IHARMAUGEWOSONSHMADGRBETERUOSEROGGEEC! WUORSNE ARBSREREST 
eee TE tr pecapbessvepoe TCT L aE BERNE FRAES S00 00 0SRRRRRAEER“ERRSHUEE| 
| —. — Sgeaporseor —— GREGG EERE SRRRSEDRERERERER ES SARE RARER 

| | troaee SRS RS eee EA RARE NERS LEANER ERE RRR ERR EEeER 
PRRRAAUAGAEAARAGHAESGRRGUGANEGAGHEMREEERRERREGEE aaa 
itt t tt ebw bbl TT PET TT TTT 
(MERA REASRREEESEERSEERRESDERESSEE TERRA EEREE EER 
|p: PR esis — | SREESURECER 


SURE SRE SERRUEYSSHRLEGHGELEL 
EERE EEE PEELED COC 

: HHH c BGEHERNABAHATSTSNANGUNREGNAEOTSTAVSMOGUGERUGBOEOT : +e a . 
Pee ee Pe Poe Ee 
Wt id | aia Sara 


BRR DEGARERNDIEEH Te | 
SAREE ESEAESSTAGRETGL | 
ERRSSRE SSRRaRE| 
Tee sb net CCE 2 

PO 
RAGE GERET Eee LPT aa 


Figure 16 


13 


Problem Statement: Payroll 


A file of cards containing payroll data is to be read into the computer and a payroll report 
prepared. Input data specification including the symbolic names to be used for the input 
area and the data items within it, are: 


Symbolic Name Name of Data Item Card Columns Format 
INPUT Entire input area -—-- 80 Bytes 
ENAME Employee name 1-15 15 Bytes 
EMPNO Employee number 16 - 21 X X XX X X 
TAXCL Tax class 22 - 23 X X 
YTDGRS Year-to-date gross earnings 24 - 30 XX, XXX.XxX 
YTDWH Year-to-date Federal 

Withholding Tax 31 - 36 xX, XXX.xXX 
YTDFICA Year-to-date FICA 37 - 41 XXX.xXX 
GROSS Current gross pay 42 - 47 xX, XXxX.XX 


The print specifications, including the symbolic names for the output area and the data items 
within it, are: 


Symbolic Name Name of Data Item Print Positions Format 
OUTPUT Entire output area 132 Bytes 
LNO Employee number — 1-6 xX XX X X X 
LNAME Employee name 9 - 23 XXXXXXXXK XXXX XX 
LGROSS _ Year-to-date gross 26 - 34 XX, XXX. XX 
LFEDWH YTD Federal 

Withholding Tax 38 - 45 Sp, ra. 4 
LFICA YTD FICA 48 - 53 X XX.XX 
LCURGR Current gross pay 57 - 64 | xX,XXxX.XX 
LNPAY Net pay 67 - 72 X XX.XX 


The print specifications are shown graphically on the printer spacing chart, Figure 22. 
Input records are in ascending sequence by employee number. The program should check 
the input sequence and print a message for any out of sequence records. 


The following information is necessary in programming the calculations called for by the 
flow chart. 


1. Withholding tax rate is 14% of all taxable earnings. 


Ze Taxable earnings are calculated by multiplying total exemptions (TAXCL) times 
$28.00 (the untaxable earnings for each exemption), then subtracting the result from 
gross earnings. 


3. FICA (Social Security Deduction) is calculated at the rate of 4.4% of the first $6600. 00 of 
annual income. The maximum amount of FICA anyone can pay is $290. 40. 


The following possibilities must be considered in making FICA calculations: 
a. The employee may have already paid the maximum amount for the year ($290. 40). 


This will be indicated by the year-to-date FICA amount (YTDFICA) in the input 
record. In this case no further deduction is made. 


Figure 17 
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b. The FICA amount calculated on his current earnings, when added to his YTDFICA 
may cause YTDFICA to exceed $290.40. In this ease, he owes only the difference 
between YTDFICA and $290.40. 

Cc. He may owe the full amount of FICA in his current earnings. 

Additional information you will need to write the program: 


1. Base register is 11 


Zi Linking register is 10 


3. Names for branch point instructions are provided in the accompanying text. 
4. Names of work area you will need and the data they will contain are: 
NUM work area into which employee number is packed for conversion to 
binary. 
CURWH Storage accumulator for current withholding amount. 
EXAMT Storage accumulator for earnings exempt from tax. 
TXBLGR Storage accumulator for taxable gross earnings. 
CURFICA Storage accumulator for current FICA. 


UNPDFICA Storage accumulator for the amount of unpaid FICA. 


NETPAY Storage accumulator for the employee's net pay. Note: Make this 
field 4 bytes long to accept GROSS in its packed form. 


SW Storage area used to determine whether a card that has just been read 
is the first payroll card. 


oe The report is to be printed on pre-printed forms. No headers have to be generated. 


Figure 17 (cont'd) 
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INTERNATIONAL BUSINESS MACHINES CORPORATION 
PRINTER SPACING CHART 
FIELD HEADINGS/WORD MARKS 6 Lines Per Inch IBM 407, 408, 409, 1403, 1404, 1443, and 2201 


PAYROLL REPORT rt pore pe ee ee 


ERGAEDRARERAERSAERE SHER DAET ALARA LAS A RAR RAREE CARA SRR SHE RRA RENARD eSee 


eee bree bone bo boo 
ee ee ina le ean 


IBM 


LINE DESCRIPTION 


2 
PREC GHAGRBGHER 0] 112[3]4]sTel7/al9|o 


'S 1671819] 0)1}213|415[6|718/9} 0] 11213 /4[s]6]7) daRBeaneaaa ig 151617 | 
CT or HT ADA ATLAAATAARG SAGA SUADUADEDHOSEAGAUAAOATINS nal 
FEET ret eh eee ove TT Eat SPATE COROAERAE MORN BAT “Hee | Ret faa 
OU UEDaGROAn eens nee bobafaanttcustneettGvicattan cuMOHtGGE 
COOP i tt peanneeee ra idlatratalettietita eT bb | 
COP Bi snniatiatis POUPe PEELE ReGBaGaeaGEG 
SMSUHEDCNGAA CMON EDO AAAAEAAUOENAHAARSASORUSERERSESORAGURGESUGEUEE te cot th 
SESH EE Et PCE SHRAIGAIS HORE AATALILAERELILELEE 7 
SCO Cee VEAAARAUEAARAITAGEGE F HF coe Httiett 
SAOHEEPGEALEEY Mo OUEOEASLATERLEAOESISEEE APUAUSUSFOAAUGAAFAESELSEERELALENIIAEIEE 
THOTT an cant HGGh SUATAAUEAAERETAANELIE EHH atte HH HT 
SUUHEEDQUAREAE CN AUSUSUSUSUOUNAGENSNSRUAUSUGATAGSAEERUAISTAASSNEAESSEREAEIED aNzBSEGE 
SCOTT Tat cot SHSAIEEHETTSIESLEGEE SAULALIDAEEASEEAEELERL ah 
SCC ha EEE PRA ee HE ARBNEBMEES : 
AMAUHUD CHEAENN RU SATATENSUAEAEUGEAUAGEASAESAUAAUAPESASLAUAAGEAENAGEESEEEOENE 
SUnHHAPCLAHLEG METIS TAOELSTAUSTAELEAALOEAELSEAEEELL ATASBRRA TREES 
SCOOT eC AAHASATOHHLLE Ht | 
J RGHSRSCHOGHG0 GRMN TU SHREOR SER RGRGHRRERG ERAN Ae | | TH 
AACAUADCUAEAAN COUASETTOUSUAAGUAAUEOOREAASUEREEOERERGIGIGE AHANIAEOEELOEAABEEIES BHIEROOOSS 
HOAGADOUASEEE CU AHRAENOULEOOUAEAEAUSUALSAOAELADAAEAUAITAUELE AEE SHLERAEEAIAD 
HUSHEDGUHEEES MUCUATAUAAAOLINAGRAERSLAEAAUALAEAAEREIAERELEE Bi HME SIALEAAAARLELL 
SMESHODCUAAEAE MEO UFHAUELOLIELERELGLIBLAEE THEE USAAEREGOEBELGLNN tb CT 
ASUALADCUAULEN Sum UAGSGEESUSUSUSUSERUSSERERGESUSUGEGEESTSLGLS A SUA GEHOGERED, 
{GHEE SCRA EHH SOOONN7IN SRURRO RRO GRERAG GSH RGREUEHUEGE RUGRERGERUREERE nth tT matte eT 
AOUAAEDCUEAGEE MERCUAUAAGEAOUSEAALOTASUAEOSUGGEENCEURERARELOGLELE Hoo 
SEARO EDGE RE GEG Emme -AUUGUROURUURRAGOREROAGRURORUROUGURORURRGRORURGE EeeeeeeoeEEer 
TPE eee EE EE Ee Ee LE EERE rE PEE 
REGED ARR AGCE SRN RADN NASAL AGEGEA RUGS RS DERMGSAECHNGURSHESEEAGANOUS BRSERRSSAAGIRRERMERECHEBNGERI 
Seer cpe rece es Rama 7G REDEEMER ASSAM UGG HAM AACEAR AR SUOUOTS RRESTSU EN RURGECNRSASTREBRCIRSOESBCADNE 
STHTT eo 
TIT TEL LL 
cGEREEDGAAGEEA SONU TAEEAUEAETACOOSEAUEEATUFSELOELOEAGEAUELATOEGEAEEUGEAPAERELETIAASLSLETLALELALG! 
SUAGUSDGUAAEAA SUE AAEKAEEAETSUSALAUATSGUSUSUAESEUSURAEENSUSUSESOUSUEEUAESUSEAELONEEAISELENETGIGE, 
AERAUADAAAAEE OHUUUNCOUASANAUEASUOUALGUSEOGUGHOBRSESUGBESUSUSUGUSUSUSHGELSLSIORESUEKELAUSIOHAELGEELT 
AUUREDGHREE SE IT GRAURAGRGURURRRGRONAMERUOUEORAURGUGUOOURUERODERURQRRGEEURUGRRROGURREOHRORRON 
AAAUEDOUSUUEG Oonme 'V SUAAGENEUSUSHAASEAOUENENSUSEUSNSSNSUETSVOBESUEOESURNEEE SL CUO EAGLE UGG 
HTT th see Eee EEE EEE EEE EEE EE ELE EE 
HELE} HEE EEE EEE EEE EE CECE EEE EEE CHE EEE 
HEAAUDOUAEOE MOO USHAAOAAOUATOAUSVAPSAESOUAEAAUAASETSEOELSTASUEUSUSSEEARERAEOSUOERELIBUESENEBIT 
EGEEDGUERENE MEOH AHAEAUSELOLOAAEUAUGERUAAEUGEROUESHAUGGUEUAUSSUAAUEUOEEEUSISGGSUURIINEIBEAETED 
dOAKHEDGHKHAES MSTA FONGUSUSUGUSERAESUSUSESUSERSUSUEESUSEGH VEGEUSGSUSURESEGEUSUAESUSESTSUGUSUGS 
AEERAEDSU GATS MCU TAAASAMOTAASAUAASROUAUAASERSOTSSUSUASUSUARNEOAEAGEKEBSSBEUID ro 
UG RHEDG SCREEN RR SAR OSROGESRRGRGRRRRGAD i BECGREREROGE aes 
COT ee 7 SUENAUERESUOSINRERL i 
GUARD GREEEES SOR BAGULTEUALABTOETD 
HHH HEHE 
PETE ye Mee eee SunnbEs 
TTT TL es ELE EE ze 
A ORARD GEN AUSE RG BDA RAERUE CERORERUEH SERUERERSSOREROR eae 
SCELELEL ELECT As at eats elo false olla l‘le slob all labalallatyuolofaf.alletia sora aes lbiaolol lsasll 


Figure 22 


IBM System/360 Assembler Coding Form 


PROGRAM PUNCHING. 
INSTRUCTIONS 
PROGRAMMER DATE 


STATEMENT 


428-6509-2 oe 
Prieted te 0.0.4, 


Operation 


{TTT Fcc Tae HO RGK FEES ARERR 
tt rorasees ene, HTT Fe ieee CC tel 
Erte RRR See eee ane 


rs 
i 


RAL 


comeinies 
B pave Chaba ECCCCEEE reece cht 
sive Weta | 


un Hauer sumdeutne TTT HE EET H | 
PUL Chee Cals CCC eee Ee | 
PaRASSREOMMRHEE AE AGAHDEEROGSROEEO REE RE ali | oH | 
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Eee ay 


eousnbes 
7401314 4UOP} 


ANaWaALV1S 


“WER SF pequrag ‘ 
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IBM System/360 Assembler Coding Form 


PUNCHING GRAPHIC 
INSTRUCTIONS 
PUNCH 


: faa Ses ony : 
euseicayesoss [it bew [OTT te GR EHAREEEE 
ws 


Pee | Nereavevoevca | Wer TT | 
Ted bsp “META, cuRMECS). PAY) | -- 
SURES GREE GEREN AROR EERE RACER PTL) 


ARERR MES FERRE TTS ERRREAS RE 
CEEEEEEEECEEEEEEE EEE EEE SEE Aa RHORERANEE Peo 
(CRAER ERS ANARRE REAR A EERE Ree Ue eee SRR ERR E ee HAS BEE eae Renee eeED 
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IBM System/360 Assembler Coding Form 
PROGRAM 


PUNCHING GRAPHIC 
INSTRUCTIONS 
PROGRAMMER DATE 


STATEMENT 


Kdentification- 
Sequence 


an SAREEBRBEUUUUSEREESERAUSSERESEEREURILIEE HL 
AS ee 
sliiimiamaailduaaaiammaianaaiaaaaianaal 


re 
3 
WHE 
ee 


Figure 27 
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IBM IBM System/360 Assembler Coding Form 128-4509-2 U7 050 


Printed ta €.8.4, 
PROGRAM Py, Z ‘< GRAPHIC 
a f 20 POa. PUNCHING 


2 : ° INSTRUCTIONS CARD 2 NUMBERS 
PROGRAMMER DATE PUNCH 
STATEMENT 


\dentification- 
Sequence 


IBM System/360 Assembler Coding Form RzA-4s09-2 8/1 050 


Printed in U.8.4, 
PROGRAM L IV AT PUNCHING 
; INSTRUCTIONS 


STATEMENT 


ae ce | Bet 
Ce SACS ees ae ni aCe 
pa fe 
SASSHSH0S0 00580 PeEGEEaE tT 


EEL EEC EERE EDs 
BUTE TAEAEARENRAERELLED 

ae else sicioi a eee 
CEECPEEEC CV PEEEEEPEECET PTT 


Figure 29 


IBM System/360 Assembler Coding Form 


126-6509-2 T/H 090 
Printed 12 . 


INSTRUCTIONS CARD ELECTRO NUMBER 
PROGRAMMER DATE : 


STATEMENT Identification- 


{ 
3 we z 
ie ei 2 vs % . Bape ‘ Py : 
‘i a 


5 4 ‘ 5 : Sal ‘ 4 : BASE 
: 52% } 


Figure 30 
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